home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
READSECT.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
1KB
|
67 lines
program ReadSectSample;
uses crt, DMT;
var
SectorBuffer : array[ 1..512 ] of byte;
SectToRead,
HeadToRead,
CylToRead,
BytesCount : word;
DrvLetter : char;
begin
Color( 7, 0 );
clrscr;
write( 'Select drive ( A-Z ) [ :]');
gotoxy( wherex - 3, wherey );
DrvLetter := upcase( readkey );
writeln( DrvLetter );
writeln;
write( 'Enter HEAD number to read : ');
readln( HeadToRead );
write( 'Enter CYLINDER number to read : ');
readln( CylToRead );
write( 'Enter SECTOR number to read : ');
readln( SectToRead );
ReadSect( DrvLetter, HeadToRead, CylToRead, SectToRead, 1, addr( SectorBuffer ) ); { Call ReadSect procedure }
if ( ErrFlag ) then
begin
writeln( #7 );
writeln( ShowError( GetErrCode ) );
end
else
begin
clrscr;
writeln;
writeln( ' Head: ', HeadToRead, ' Track: ', CylToRead,' Sector: ', SectToRead,
' Drive: ', DrvLetter );
BytesCount := 1;
writeln;
{ Displays contents of sector on screen }
repeat
case char( SectorBuffer[ BytesCount ] ) of
#00, #07,
#08, #09,
#10, #13,
#01, #27 : write( '.' );
else
write( char( SectorBuffer[ BytesCount ] ) );
end;
inc( BytesCount );
until ( BytesCount = 512 );
writeln;
end;
GetEnter;
end.